Figure H-11: Data Direction Registers (DDRB, DDRA) 
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READ HANDSHAKE Positive control of data transfers from peripheral devices into the 
system processor can be accomplished very effectively using Read 
Handshaking. In this case, the peripheral device must generate the 
equivalent of a “Data Ready’’ signal to the processor signifying that 
valid data is present on the peripheral port. This signal normally 
interrupts the processor, which then reads the data, causing generation 
of a “Data Taken”’ signal. The peripheral device responds by making 
new data available. This process continues until the data transfer 
is complete. 


In the SY6522, automatic ‘‘Read’’ Handshaking is possible on 

the Peripheral A port only. The CA1 interrupt input pin accepts the 
‘Data Ready’ signal and CA2 generates the ‘“‘Data Taken’’ signal. 
The “Data Ready”’ signal will set an internal flag which may interrupt 
the processor or which may be polled under program control. The 
‘Data Taken’ signal can either be a pulse or a level which is set low 
by the system processor and is cleared by the ‘“‘Data Ready’”’ signal. 
These options are shown in Figure H-12, which illustrates the 

normal Read Handshaking sequence. 


Figure H-12: Read Handshake Timing (Port A, Only) 
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~The sequence of operations which allows handshaking data from 


the system processor to a peripheral device is very similar to that 
described for Read Handshaking. However, for Write Handshaking, 
the SY6522 generates the ‘‘Data Ready’”’ signal and the peripheral 
device must respond with the “Data Taken’”’ signal. This can be 
accomplished on both the PA port and the PB port on the SY6522. 
CA2 or CB2 act as a ‘‘Data Ready” output in either the handshake 
mode or pulse mode and CA1 or CB1 accept the ‘‘Data Taken’”’ 
signal from the peripheral device, setting the Interrupt Flag and cleaning 
the ‘“‘Data Ready’’ output. This sequence is shown in Figure H-13. 


Selection of operating modes for CA1, CA2, CB1, and CB2 is 
accomplished by the Peripheral Control Register (Figure H-14). 
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Figure H-13: Write Handshake Timing 
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Interval Timer T1 consists of two 8-bit latches and a 16-bit counter. 
The latches are used to store data which is to be loaded into the 
counter. After loading, the counter decrements at $2 clock rate. Upon 
reaching zero, an Interrupt Flag will be set, and IRQ will go low if the 
interrupt is enabled. The timer will then disable any further interrupts, 
or will automatically transfer the contents of the latches into the 
counter and will continue to decrement. In addition, the timer may be 
programmed to invert the output signal on a peripheral pin each time 
it ‘‘times-out’’. Each of these modes is discussed separately below. 


The T1 counter is depicted in Figure H-15 and the latches in Figure H-16. 


Figure H-14: CA1, CA2, CB1, CB2 Control 
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Two bits are provided in the Auxiliary Control Register (bits 6 and 7) 
to allow selection of the T1 operating modes. The four possible 


modes are depicted in Figure H-17. 


Figure H-15: T1 Counter Registers 
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WRITE — 8 BITS LOADED INTO T1 LOW-ORDER 
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Figure H-16: T1 Latch Registers 


REG 6 — TIMER 1 LOW-ORDER LATCHES 


COUNT 
VALUE 


WRITE — 8 BITS LOADED INTO T1 
LOW-ORDER LATCHES. THIS 
OPERATION tS NO DIFFERENT 
THAN A WRITE INTO REG 4. 


READ — 8 BITS FROM T1 LOW-ORDER LATCHES 
TRANSFERRED TO MPU. UNLIKE REG 4 
OPERATION, THIS DOES NOT CAUSE 
RESET OF T1 INTERRUPT FLAG. 


REG 7 — TIMER 1 HIGH-ORDER LATCHES 


2048 | COUNT 
VALUE 


16384 
32768 


WRITE — 8 BITS LOADED INTO T1 HIGH-ORDER 
LATCHES. UNLIKE REG 4 OPERATION 
NO LATCH-TO-COUNTER TRANSFERS 
TAKE PLACE. 


READ — 8 BITS FROM T1 HIGH-ORDER LATCHES 
TRANSFERRED TO MPU. 


213 


TIMER 1 


ONE-SHOT MODE — 


214 


Figure H-17: Auxiliary Control Register 


REG 11 — AUXILIARY CONTROL REGISTER faethe 

BORQEREE 
Ti TIMER eee Fae 
[OPERATION _|Pa7____ 


6] 
TIMED INTERRUPT 
EACH TIME T11S 
LOADED DISABLED 
ve 
INTERRUPTS 


PA LATCH ENABLE/DISABLE 


PB 0= DISABLE 
1* ENABLE LATCHING 


TIMED INTERRUPT | ONE-SHOT 


EACH TIME T11S QUTPUT SHIFT REGISTER CONTROL 


fa{3]2}oPpenaTiON, sd 
10/010] DISABLED > 
0] 


LOADED 


CONTINUOUS SQUARE 
INTERRUPTS WAVE 
OUTPUT 


T2 TIMER CONTROL 


OPERATION 
TIMED INTERRUPT 


COUNT DOWN WITH 
PULSES ON PB6 


Figure H-18: Timer 1 and Timer 2 One-Shot Mode Timing 
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The interval timer one-shot mode allows generation of a single 
interrupt for each timer load operation. As with any interval timer, 

the delay between the “write T1C-H” operation and generation of the 
processor interrupt is a direct function of the data loaded into the 
timing counter. In addition to generating a single interrupt, Timer 1 
can be programmed to produce a single negative pulse on the PB7 
peripheral pin. With the output enabled (ACR7 = 1) a “‘write T1C-H”’ 
operation will cause PB7 to go low. PB7 will return high when Timer 1 
times out. The result is a single programmable width pulse. 


In the one-shot mode, writing into the high order latch has no 

effect on the operation of Timer 1. However, it will be necessary to 
assure that the low order latch contains the proper data before 
initiating the count-down with a ‘‘write T1C-H”’ operation. When the 
processor writes into the high order counter, the T1 Interrupt Flag will 
be cleared, the contents of the low order latch will be transferred into 
the low order counter, and the timer will begin to decrement at 
system clock rate. If the PB7 output is enabled, this signal will go 
low on the phase two following the write operation. When the counter 
reaches zero, the T1 Interrupt Flag will be set, the IRQ pin will go low 


(interrupt enabled), and the signal on PB7 will go high. At this time 
the counter will continue to decrement at system clock rate. This 
allows the system processor to read the contents of the counter to 
determine the time since interrupt. However, the T1 Interrupt Flag 
cannot be set again unless it has been cleared as described 

in this specification. 


Timing for the SY6522 interval timer one-shot modes is shown 


in Figure H-18. 
TIMER 1 The most important advantage associated with the latches in T1 
FREE-RUN MODE is the ability to produce a continuous series of evenly spaced interrupts 


and the ability to produce a square wave on PB7 whose frequency is 
not affected by variations in the processor interrupt response time. 
This is accomplished in the ‘‘free-running’’ mode. 


In the free-running mode, the Interrupt Flag is set and the signal on 
PB7 is inverted each time the counter reaches zero. However, instead 
of continuing to decrement from zero after a time-out, the timer 
automatically transfers the contents of the latch into the counter 

(16 bits) and continues to decrement. from there. The Interrupt Flag 
can be cleared by writing T1C-H, by reading T1C-L, or by writing 
directly into the flag as described later. However, it is not necessary 
to rewrite the timer to enable setting the Interrupt Flag on the 

next time-out. 


All interval timers in the SY6522 are ‘‘re-triggerable’’. Rewriting 

the counter will always re-initialize the time-out period. In fact, the 
time-out can be prevented completely if the processor continues to 
rewrite the timer before it reaches zero. Timer 1 will operate in this 
manner if the processor writes into the high order counter (T1C-H). 
However, by loading the latches only, the processor can access the 
timer during each down-counting operation without affecting the 
time-out in process. Instead, the data loaded into the latches will 
determine the length of the next time-out period. This capability is 
particularly valuable in the free-running mode with the output 
enabled. In this mode, the signal on PB7 is inverted and the interrupt 
flag is set with each time-out. By responding to the interrupts with 
new data for the latches, the processor can determine the period of 
the next half cycle during each half cycle of the output signal on PB7. . 
In this manner, very complex waveforms can be generated. Timing 
for the free-running mode is shown in Figure H-19. 
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Figure H-19: Timer 1 Free-Run Mode Timing 
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Note: A precaution to take in the use of P87 as the timer output concerns the Data Direction Register contents for PB7. Both 
_ODRB bit 7 and ACR bit 7 must be 1 for PB7 to function as the timer output. If one is 1 and the other is 0, then PB7 functions 
as a normal output pin, controlled by ORB bit 7. 


215 


TIMER 2 OPERATION _ Timer 2 operates as an interval timer (in the ‘“‘one-slot’’ mode only), 
or as a counter for counting negative pulses on the PB6 peripheral pin. 
A single control bit is provided in the Auxiliary Control Register to 
select between these two modes. This timer is comprised of a 
‘‘write-only”’ low-order latch (T2L-L), a “‘read-only”’ low-order counter 
and a read/write high order counter. The counter registers act as a 
16-bit counter which decrements at ¢2 rate. Figure H-20 illustrates 
the T2 Counter Registers. 


TIMER 2 As an interval timer, T2 operates in the ‘‘one-shot” mode similar 

ONE-SHOT MODE to Timer 1. In this mode, T2 provides a single interrupt for each 
“write T2C-H”’ operation. After timing out, the counter will continue 
to decrement. However, setting of the Interrupt Flag will be disabled 
after initial time-out so that it will not be set by the counter continuing 
to decrement through zero. The processor must rewrite T2C-H to 
enable setting of the Interrupt Flag. The Interrupt Flag is cleared by 
reading T2C-L or by writing T2C-H. Timing for this operation is 
shown in Figure H-18. 


Figure H-20: T2 Counter Registers 
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READ - 8 BITS FROM T2 LOW-ORDER COUNTER TRANSFERRED TO LOW-ORDER 
; TRANSFERRED TO MPU. T2 INTERRUPT COUNTER. IN ADDITION, T2 INTERRUPT 
FLAG IS RESET. FLAG !S RESET. 
READ— 8 BITS FROM T2 HIGH-ORDER COUNTER 
TRANSFERRED TO MPU. 
TIMER 2 In the pulse counting mode, T2 serves primarily to count a 
PULSE COUNTING predetermined number of negative-going pulses on PB6. This is 
MODE accomplished by first loading a number into T2. Writing into T2C-H 


clears the Interrupt Flag and allows the counter to decrement each 
time a pulse is applied to PB6. The Interrupr Flag will be set when 
T2 reaches zero. At this time the counter will continue to decrement 
with each pulse on PB6. However, it is necessary to rewrite T2C-H to 
allow the Interrupt Flag to set on subsequent down-counting 
operations. Timing for this mode is shown in Figure H-21. The pulse 
must be low on the leading edge of $2. 


SHIFT REGISTER The Shift Register (SR) performs serial data transfers into and 

OPERATION out of the CB2 pin under control of an internal modulo-8 counter. 
Shift pulses can be applied to the CB1 pin from an external source 
or, with the proper mode selection, shift pulses generated internally 
will appear on the CB1 pin for controlling external devices. 
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a The control bits which select the various shift register operating 
\eages” , : modes are located in the Auxiliary Control Register. Figure H-22 
illustrates the configuration of the SR data bits and the SR control 
bits of the ACR. 


Figures H-23 and H-24 illustrate the operation of the various 
shift register modes. 


INTERRUPT Controlling interrupts within the SY6522 involves three principle 
OPERATION operations. These are flagging the interrupts, enabling interrupts and | 
_ signaling to the processor that an active interrupt exists within the 

chip. Interrupt flags are set by interrupting conditions which exist 
within the chip or on inputs to the chip. These flags normally remain 
set until the interrupt has been serviced. To determine the source of 
an interrupt, the microprocessor must examine these flags in order 
from highest to lowest priority. This is accomplished by reading the 
flag register into the processor accumulator, shifting this register 
either right or left and then using conditional branch instructions to 
detect an active interrupt. — 


Associated with each Interrupt Flag is an interrupt enable bit. 

This can be set or cleared by the processor to enable interrupting 
the processor from the corresponding Interrupt Flag. If an interrupt 
flag is set to a logic 1 by an interrupting condition, and the corresponding 
interrupt enable bit is set to a 1, the Interrupt Request Output (IRQ) 
will go low. IRQ is an “‘open-collector’’ output which can be ‘‘wire-or‘ed’”’ 
with other devices in the system to interrupt the processor. 


In the SY6522, all the Interrupt Flags are contained in one register. 
| | In addition, bit 7 of this register will be read as a logic 1 when an 
ae, a interrupt exists within the chip. This allows very convenient polling of 
| several devices within a system to locate the source of an interrupt. 
i Oe Ne a ee 
Figure H-21: Timer 2 Pulse Counting Mode 7 


WRITE T2C-H 
OPERATION 


RO OUTPUT 


Figure H-22: SR and ACR Control Bits 
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NOTES: 
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The 000 mode is used to disable the Shift Register. In this mode 

the microprocessor can write or read the SR, but the shifting operation 
is disabled and operation of CB1 and CB2 is controlled by the 
appropriate bits in the Peripheral Control Register (PCR). In this 
mode the SR Interrupt Flag is disabled. (held to a logic 0). 


In the 001 mode the shifting rate is controlled by the low order 

8 bits of T2. Shift pulses are generated on the CB1 pin to control 
shifting in external devices. The time between transitions of this output 
clock is a function of the system clock period and the contents of 

the low order T2 latch (N). 


The shifting operation is triggered by writing or reading the shift 
register. Data is shifted first into the low order bit of SR and is then 
shifted into the next higher order bit of the shift register on the 
negative-going edge of each clock pulse. The input data should 
change before the positive-going edge of the CB1 clock pulse. This 
data is shifted into the shift register during the 4, clock cycle following 
the positive-going edge of the CB1 clock pulse. After 8 CB1 clock 
pulses, the shift register Interrupt Flag will be set and IRQ will go 
low. 
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In mode 010 the shift rate is a direct function of the system clock 
frequency. CB1 becomes an output which generates shift pulses for 
controlling external devices. Timer 2 operates as an independent 
interval timer and has no effect on SR. The shifting operation is 
triggered by reading or writing the Shift Register. Data is shifted first 
bit O and is then shifted into the next higher order bit of the shift 
register on the trailing edge of each 9, clock pulse. After 8 clock 
pulses, the shift register Interrupt Flag will be set, and the output 
clock pulses on CB1 will stop. 
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In mode 011 CB1 becomes an input. This allows an external device 
to load the shift register at its own pace. The shift register counter will 
interrupt the processor each time 8 bits have been shifted in. However, 
the shift register counter does not stop the shifting operation; it acts 
simply as a pulse counter. Reading or writing the Shift Register 
resets the Interrupt flag and initializes the SR counter to count 
another 8 pulses. 


Note that the data is shifted during the first system clock cycle 
following the positive-going edge of the CB1 shift pulse. For this 
reason, data must be held stable Bunning the first full cycle following 
CB1 going high. 


Figure H-23: Shift Register Input Modes 
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Shift Out Free-Running Mode 100 is very similar to mode 101 in which the shifting rate 

at T2 Rate (100) is set by T2. However, in mode 100 the SR counter does not stop 
the shifting operation. Since the Shift Register bit 7 (SR7) is recirculated 
back into bit 0, the 8 bits loaded into the shift register will be 
clocked onto CB2 repetitively. In this mode the shift register 
counter is disabled. 
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Control of T2 (101) In mode 101 the shift rate is controlled by T2 (as in the previous 

7 mode). However, with each read or write of the shift register the SR 
Counter is reset and 8 bits are shifted onto CB2. At the same time, 8 
shift pulses are generated on CB1 to control shifting in external 
devices. After the 8 shift pulses, the shifting is disabled, the SR 
Interrupt Flag is set and CB2 remains at the last data level. 
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Shift Out Under In mode 111 shifting is controlled by pulses applied to the CB1 pin 

Control of External by an external device. The SR counter sets the SR Interrupt 

CB1 Clock (111) flag each time it counts 8 pulses but it does not disable the shifting 
function. Each time the microprocessor writes or reads the shift 
register, the SR Interrupt flag is reset and the SR counter is 
initialized to begin counting the next 8 shift pulses on pin CB1. After 
8 shift pulses, the Interrupt flag is set. The microprocessor can then 
load the shift register with the next byte of data. 


Figure H-24: Shift Register Output Modes 
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The Interrupt Flag Register (IFR) and Interrupt Enable Register (IER) 
are depicted in Figures H-25 and H-26, respectively. 


The IFT may be read directly by the processor. In addition, 
individual flag bits may be cleared by writing a ‘‘1”’ into the 
appropriate bit of the IFR. When the proper chip select and register 
signals are applied to the chip, the contents of this register are 
placed on the data bus. Bit 7 indicates the status of the IRQ output. 
This bit corresponds to the logic function: IRQ = IFR6xIER6 + IFR5x 
IER5 + IFR4xiER4 + IFRSxlIER3 + IFR2xIER2 + IFR1xlER1 + IFROXxIERO. 
Note: X = logic AND, + = Logic OR. 

The IFR bit 7 is not a flag. Therefore, this bit is not directly 

cleared by writing a logic 1 into it. It can only be cleared by clearing 


all the flags in the register or by disabling all the active interrupts as 
discussed in the next section. 
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Figure H-25: Interrupt Flag Register (IFR) 
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For each Interrupt Flag in IFR, there is a corresponding bit in the 
Interrupt Enable Register. The system processor can be set or clear 
selected bits in this register to facilitate controlling individual interrupts 
without affecting others. This is accomplished by writing to address 
1110 (IER address). If bit 7 of the data placed on the system data 
bus during this write operation is a 0, each 1 in bits 6 through O 
clears the corresponding bit in the Interrupt Enable Register. For 
each zero in bits 6 through 0, the corresponding bit is unaffected. 


Setting selected bits in the Interrupt Enable Register is accomplished 
by writing to the same address with bit 7 in the data word set to a 
logic 1. In this case, each 1 in bits 6 through O will set the 
corresponding bit. For each zero, the corresponding bit will be 
unaffected. This individual control of the setting and clearing 
operations allows very convenient control of the interrupts during 
system operation. 


In addition to setting and clearing IER bits, the processor can read 
the contents of this register by placing the proper address on the 
register select and chip select inputs with the R/W line high. Bit 7 
will be read as a logic 0. 


Figure H-26: Interrupt Enable Register (IER) 
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NOTES: 
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CORRESPONDING INTERRUPT. 

3. IF A READ. OF THIS REGISTER IS DONE, BIT 7 WILL BE "0" AND 
ALL OTHER BITS WILL REFLECT THEIR ENABLE/DISABLE STATE. 
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ORDERING INFORMATION 


Order Package Frequency 
Number Type Option 
SYP 6522 Plastic 1 MHz 
SYP 6522A —s— Plastic 2 MHz 
SYC 6522 Ceramic 1 MHz 
SYC 6522A = Ceramic 2 MHz 
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I.1 8086 REGISTER 
MODEL 


Appendix | ASSEMBLY LANGUAGE REFERENCE DATA. 


AX: ACCUMULATOR 
BX: BASE 
Ox: COUNT 7 
DX: DATA < 
a 
Z 
SP STACK POINTER in 
BP BASE POINTER : 
SI SOURCE INDEX 
DI DESTINATION INDEX 
" INSTRUCTION POINTER 
FLAGSH FLAGSL! STATUS FLAGS 
Lu 
= 
CODE SEGMENT Be 
DATA SEGMENT wi fF 
STACK SEGMENT & bs 
EXTRA SEGMENT Bo 
om 


Instructions which reference the flag register file as a 16-bit object 


use the symbol FLAGS to represent the file: 


15 


7 0 


XX X ¥& OF DF IF TF SF ZF X AF X PF X CF 


X = Don't care 


AF: AUXILIARY CARRY—BCD 


CF: CARRY FLAG 


PF: PARITY FLAG 8080 FLAGS 
SF: SIGN FLAG | 


ZF: ZERO FLAG 


8080 FLAGS 


REGISTER FILE 


DF: DIRECTION FLAG (STRINGS) 


IF; INTERRUPT ENABLE FLAG 
OF: OVERFLOW FLAG (CF © SF) 
TF: TRAP—SINGLE STEP FLAG 
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Fe a eee ie eed 
1.2 OPERAND 
SUMMARY 


ae 
1.3 SECOND 
INSTRUCTION BYTE 
SUMMARY 
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“REG” FIELD BIT ASSIGNMENTS 
16-BIT(W=1 8-BIT(W=0 SEGMENT 


000 AX 000 AL 00 ES 
001 CX 001 CL 01 CS 
010 DX 010 DL 10 SS 
011 BX 011 BL 11 DS 
100 SP 100 AH 
101 BP 101 CH 
110 SI 110.DH 
111 DI 111 BH 


DISPLACEMENT 


00 DISP=0*; disp-low and disp-high are absent 

01 DISP=disp-low sign-extended to 16-bits, disp-high is absent 
10 DISP=disp-high:disp-low 

11 r/m is treated as a “reg” field 


DEFAULT 


OPERAND ADDRESS SEGMENT 


000 (BX) + (SI) + DISP DS 
001 (BX) + (DI) + DISP DS 
010 (BP) + (SI) + DISP Ss 
011 (BP) + (DI) + DISP SS 
100 (SI) + DISP DS 
101 (DI) + DISP DS 
110 (BP) + DISP* SS 
111 (BX) + DISP DS 


DISP follows 2nd byte of instruction (before data if required). 
*except if mod=00 and r/m=110; then EA=disp-high: disp-low. 


OPERAND ADDRESS (EA) TIMING (CLOCKS): 

Add 4 clocks for word operands at ODD ADDRESSES. 
Immed offset=6 

Base (BX, BP, Sl, Dl)=5 

Base + DISP=9 

Base + index (BP + DI, BX + SI)=7 

Base + index (BP + SI, BX + Dl)=8 

Base + index (BP + Di, BX + SI) + DISP=11 

Base + index (BP + SI, BX + DI) + DISP=12 
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1.4 MEMORY 
SEGMENTATION 
MODEL 
7 0 
EMORY SPACE — 
i CODE SEGMENT 
XXXXOH 
ae 
— STACK SEGMENT 
DISPLACEMENT 
15 0 
pas DISPLACEMENT | | 
aoe aul 
SELECTED © word DATA SEGMENT 
SEGMENT |_| 0000 | 
REGISTER# —SS_| oo aaa 
e 0 7 
os 6. 05.68 [es | [Lao 
FOR 1/0, INT feed 
| | ! | + EXTRA DATA 
! ‘ GMENT 
; \: / | ADDER E 
| | : ! Le) 000001 
i © PHYSICAL 
i A ESS 
LATCH 
SEGMENT OVERRIDE PREFIX 
00 1 REG 1 $1 #0 
Timing: 2 clocks 
USE OF SEGMENT OVERRIDE | 
OPERAND REGISTER DEFAULT | WITH OVERRIDE PREFIX 
IP (code address) CS Never 
SP (stack address) SS Never 
BP (stack address or | : 
stack marker) SS BP + DS, or ES, or CS 
SI or DI (not incl. strings) DS ES, SS, or CS 
SI (implicit source addr. 
for strings) DS ES, SS, or CS 
DI (implicit dest. addr. 
for strings) ES Never 
aa ee ees 
1.5 INSTRUCTION section 1.5.2 presents instuction set data, grouped by function. Section 
SET DATA I.9 provides an alphabetic index to the data. 
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1.5.1 KEY TO FLAG The following key refers to the flag sections in the instruction set data 
EFFECTS in Section 1.5.2. 


FLAG EFFECT KEY 
EXPLANATION 


IDENTIFIER 


(blank) Not altered 
0 Cleared to 0 
1 Set to 1 
X Set or cleared according to result 
U Undefined—contains no reliable value 
R Restored from previously-saved value 
ee ee Se ee et ae 
1.5.2 DATA 
TRANSFER 
MOV=Move Flags: ODtITSsS ZAP C 


Register/memory to/from register 


Timing (clocks): register to register 2 
memory to register 8+EA 
register to memory 9+EA 


Immediate to register/memory 


1100011w]mod 000 rm | data | dataitw=t_| 


Timing: 10+EA clocks 


Immediate to register 
1011W reg 


Timing: 4 clocks 


data if w=1 


Memory to accumulator 
1010000w addr-high 


Timing: 10 clocks 


Accumulator to memory 


Register/memory to segment register 


10001110 |modOreg r/m 


Timing (clocks): register to register 2 
memory to register 8+EA | 


Segment register to register/ memory 


10001100 |mod0Oreg r/m 
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PUSH=Push 


POP=Pop 


XCHG=Exchange 


IN=Input to AL/AX 
from 


Timing (clocks): register to register 
register to memory 


TSZAPC 


Flags: O D 


Register/memory 


111111114 [mod110 r/m 
Timing (clocks): register 
memory 
01010 reg 


no 
os 
—_ 
2 a 
> ou 
~ oO 
G2 
2S 
ay 


000reg 110 
Timing: 10 clocks 
Flags O DifIltTS ZA PC 


Register/memory 


[10001111 |mod000 rm 


Timing (clocks): register 
memory 


Register 


01011 reg 


a 
3. 
5 
Co) 
oe) 
io} 
fo) 
e) 
~~ 
~” 


Segment register 
000reg 111 


Timing: 8 clocks 


Flags) O D 


TS ZAP C 


we 
@ 
Q 
“” 
+ 
@ 
= 
™ 
3 
© 
3 
Oo 
= 
< 
= 
-_ 
a 
“ 
@ 
Q. 
2 
+ 
@ 
= 


1000011 w [mod rep rim 


Timing (clocks): register with register 
memory with register 


10010 reg 


4 (=|? 
3 Qa 
= a 
© © 
Ww come } 
0 = 
de —+ 
oO > yi 
'@) 
x o 
‘@) 
Cc 
3 
= 
m 
-> 
© 
= 


Flags O DITS ZAP C 


Fixed Port | 
1110010w 
Timing: 10 clocks 


a 
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O+EA 


10 
16+EA 


17+EA 


17+EA 
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OUT=Output from 
AL/AX to 


XLAT=Translate Byte 
to AL 


LEA=Load EA to 
Register 


LDS=Load Pointer to 
DS 


LES=Load Pointer to 
ES 


LAHF=Load AH with 
Flags 


SAHF=Store AH into 
Flags 
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Variable port (DX) 


Timing: 8 clocks 


Flags O D T S$ ZA PC 


Fixed Port 
4110011w| port 


Timing: 10 clocks 


Variable port (DX) 
1110147171w 


Timing: 8 clocks 


Flags) O D 
11010111 


Timing: 11 clocks 


Flags O D!TS ZA PC 


Timing: 2+EA clocks 


Flags; O D 


11000101 


a 
3 
a | 
© 
an 
oO 
+ 
m 
> 
= Oz 
O 
@) 
< 
~” 


Flags. O D 
11000100 [mod reg r/m | 


Timing: 16+EA clocks 


Flags O DI!ITS ZAP C 


Timing: 4 clocks 
Flags O DI!ITS ZA PC 
RR RR R 


Timing: 4 clocks 
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TS ZAP C 


TS ZAP C 


TS ZAP C 


PUSHF=Push Flags 


POPF=Pop Flags 


1.5.3 ARITHMETIC 
ADD=Add 


ADC=Add with Carry 


Flags O DITS ZAP C 


10011100 


Flags O D | TS ZAP C 
R RRRR RRR R 

Timing: 8 clocks 

Flags O D!TS Z APC 
X X X X X X 


Reg./memory with register to either 
o00000dw 


Timing (clocks): register to register 
memory to register 
register to memory 


Immediate to register/ memory 


100000sw|mod000 r/m | data ‘| _—_ data if s:w=01 


Timing (clocks): immediate to register 
immediate to memory 


Immediate to accumulator 


3 
9+EA 
16+EA 


4 
17+EA 


oooo0010w| data | __dataifw=1_| 
Timing: 4 clocks 


x< U 


Reg./memory with register to either 


7001000 w|mod rey 1m 


Timing (clocks): register to register 
memory to register 
register to memory 


Immediate to register/ memory 


100000sw|mod010 r/m | data | _—_data if s:w=01 


Timing (clocks): immediate to register 
immediate to memory 
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3 
9+EA 
16+EA 


4 
17+EA 
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Immediate to accumulator 


PooTOTOw] data | datatwel_ 


Timing: 4 clocks 


INC=Increment Flags O D|ITS§S§ ZA PC 
X X X X X X 
Register/memory 
Timing (clocks): register 2 
memory 15+EA 
Register 
Timing: 2 clocks 
AAA=ASCII Adjust for Flags O D!ITS ZAP C 
Add U UU X U X 
Timing: 4 clocks 
DAA=Decimal Adjust Flags O D1 TS ZAP C a 
for Add X X X X X X 
Timing: 4 clocks 
SUB=Subtract Flags O DItTS ZAP C 
X X X X X X 
Timing (clocks): register from register 3 


memory from register 9+EA 
register from memory 16+EZ 


Immediate from register/memory 


100000sw|mod101 r/m | data | _—_ data if s:w=01 


4 
immediate from memory 17+EA 


= 
= 
=) 
© 
Q 
2) 
QO 
os 
— 
3 
3 
4) 
Q. 
pe) 
=> 
@ 
—s 
om 
O 
3 
“= 
0) 
ol 
a 
= 
@ 
om 3 


Immediate from accumulator 


poTo1Ti0w] data —-|datatwet_ 


Timing: 4 clocks 
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SBB=Subtract with 
Borrow 


DEC=Decrement 


NEG=Change Sign 


CMP=Compare 


Flags O D I T 
: X 


000110dw|mod reg r/m_ 


Timing (clocks): register from register 


memory from register 
register from memory 


Immediate from register/memory 


100000sw|mod011 r/m | data | _—_ data if s:w=01 


Timing (clocks): immediate from register 


3 
9+EA 
16+EA 


4 


immediate from memory 17+EA 


Immediate from accumulator 


*O if destination=0 


1111011w {mod011 r/m 


Timing (clocks): register 
memory 


Flags O D!TS ZAP OC 
X X X X X X 
Register/memory and register 


0011104 w|mod reg rim | 


Timing (clocks): register with register 
memory with register 
register with memory 
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15+EA 


16+EA 
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AAS=ASCIil Adjust for 
Subtract 


DAS=Decimal Adjust 
for Subtract 


MUL=Multiply 
(Unsigned) 


IMUL=Integer Multiply 
(Signed) 


AAM=ASCII Adjust for 
Multiply 


DIV=Divide 
(Unsigned) 


232 
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Immediate with register/memory 


100000sw{mod111 r/m | data data if s:w=01 


Timing (clocks): immediate with register 4 
immediate with memory 17+EA 


Immediate with accumulator 
foo11110w| data |_—_—data if w=1 


Timing: 4 clocks 


Flags O D |! T 
U 


foo1i1itit | 


Timing: 4 clocks 


cu 
xO 


Flags O D|ITS ZA 
U X X X 


[oo101111 | 


Timing: 4 clocks 


x< TU 
xO 


Flags O D I T 
X 


1111011wimod100.r/m 


Timing (clocks): 8-bit 71+EA 
16-bit 124+EA 


xO 


Flags O D ITS ZAP 
X U UU U 


111101%1wif{mod101 r/m 


Timing (clocks): 8-bit 90+EA 
16-bit | 144+EA 


xO) 


Flags O D | T 
U 


11010100 j4;00001010 


Timing: 83 clocks 


at @) 


Flags O DIT 
U 


Cc TU 
© 


S Zz 
UU 
1141011w |modi10 r/m 


Timing (clocks): 8-bit 90+EA 
16-bit 7 155+EA 


IDIV=Integer Divide 
(Signed) 


AAD=ASCIl Adjust for 
Divide 


CBW=Convert Byte to 
Word 


CWD=Convert Word 
to Double Word 


Se eS 
1.5.4 LOGIC 


NOT=Invert 


SHL/SAL=Shift 
Lagical/Arithmetic 
Left 


SHR=Shift Logical 
Right 


Flags O D |! T 
U 


11110114w4{mod111 r/m oS 


Timing (clocks): 8-bit 
16-bit 


Flags O DIT S 2A P 
Timing: 2 clocks 
Flags: O DITS ZAP 


10011001 
Timing: 5 clocks 


Flag: O DITS ZAP 


1111011wimod010 r/m 


Timing (clocks): register — 
memory 


TS ZAP 


110100vwimod100 r/m 


Timing (clocks): single-bit register 
single-bit memory 


Flags; O D 
X 


variable-bit register. 8+4/bit 


variable-bit 
memory 


TS ZAP 


110100vwt{mod101 r/m 


Timing (clocks): single-bit register 
single-bit memory 


Flags; O D 


C 
U 
112+EA 
177+EA 
C 
U 
a 
C 
C 
3 
16+EA 
C 
x 
MSB 
pc hy | <— | 
2 
15+EA 
20+EA+4/bit 
C 
X MSB LSB 


og sR 


2 
15+EA 


variable-bit register 8+4/bit 


variable-bit 
memory 
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20+EA+4/bit 
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SAR=Shift Arithmetic 
Right 


ROL=Rotate Left 


ROR=Rotate Right 


RCL=Rotate Through 
Carry Left 


RCR=Rotate Through 
Carry Right 


234 


nee ee C 
X X U X 


Pp 
X 
MSB LSB 


mere: EST He 


Timing (clocks): single-bit register 


single-bit memory 15+EA 
variable-bit register 8+4/bit 
variable-bit 

memory 20+EA+4/bit 


Figs OD ITS ZAP C 
: x 


= ie 
T10100vw|mod000 1m 


Timing (clocks): single-bit register 


single-bit memory eer 
variable-bit register 8+4/bit 
variable-bit 

memory 20+EA+4/bit 


_Flags O D ITS ZA PC 


X x mars 


Timing (clocks): single-bit register 


single-bit memory ‘ian 
variable-bit register 8+4/bit 
variable-bit 

memory 20+EA+4/bit 


Flags ODITSZAPC 
X MSB LSB 


X 
eS 


Timing (clocks): single-bit register — 


single-bit memory 15+EA 
variable-bit register 8+4/bit 
variable-bit 

memory 20+EA+4/bit 


Flags O DITS ZA PC 
X x 


mes 
110100vwt{modG11 r/m _= [T=T Heh 


Timing (clocks): single-bit register 


single-bit memory nme 
variable-bit register 8+4/bit 
variable-bit 

memory 20+EA+4/bit 
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AND=And 


TEST=And Function 
to Flags, No Result 


OR=Or 


Flags O D!TS ZAP C 
O- X X U X O 


Reg./memory and register to either 


001000dw|mod reg r/m_| 


Timing (clocks): register to register 3 
memory to register 9+EA 


register to memory 16+EA 


Immediate to register/ memory 
1000000w|modi00 rm | data | datattw-t | 
4 


Timing (clocks): immediate to register 
immediate to memory 17+EA 


Immediate to accumulator 


Register/memory and register 
1000010w 


Timing (clocks): register to register 3 
register with memory 9+EA 


Immediate data and register/memory 


1111041 w [modo 00 im | data | datatwt 


Timing (clocks): immediate with register 4. 
immediate with memory 10+EA 


Immediate data and accumulator 


rorotoow] daa datatwt 
P C 
X O 


Reg./memory and register to either 


000010dw {mod reg _r/m_| 


Timing (clocks): register to register 3 
memory to register 9+EA 
register to memory 16+EA 
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Immediate to register/memory 
1000000w |mod001 r/m | data 


Timing (clocks): immediate to register 4 
immediate to memory 17+EA 


Immediate to accumulator 


0000110w data | data ifw=1 | 


XOR=Exclusive Or Fiags O D ITS ZA PC 
O 


Reg./memory and register to either 


C01100dw |mod reg rim | 


Timing (clocks): register to register 3 
memory to register 9+EA 
register to memory 16+EA 


Immediate to register/memory 


1000000w|modiio vm [daa | datatwal 


Timing (clocks): immediate to register 4 a —. 
immediate to memory 17+EA : 


Immediate to accumulator 
cori010w| aaa aa 


Timing: 4 clocks 


eS 
1.5.5 STRING 
MANIPULATION 


REP=Repeat Flags O DITS ZA PC 


[11110012 | 


MOVS=Move String Flags O DITS 2Z2APC 
Timing: 17 clocks 
CMPS=Compare - Flags: x Dstt . 


String 


Timing: 22 clocks 
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SCAS=Scan String Flags O D!I TS ZAP C 
| x xX X 


101710111w 


Timing: 15 clocks 


LODS=Load String Flags O DI!ITS ZA PC 


STOS=Store String . Flags O DI!ITS ZAP C 
[1o10101w] 
Timing: 10 clocks 
ease ses eat Eda al 
1.5.6 CONTROL NOTE: Queue reintialization is not included in the timing information 
TRANSFER for transfer operations. To account for instruction loading, add 8 
clocks to timing numbers. 
CALL=Call Flags O DItItTS 2APC 


Direct within segment 


11101000] disp-iow 


Timing: 11 clocks 


Indirect within segment 


11111111 |mod010 r/m 


Timing: 13+EA clocks 


Direct intersegment 
10011010 


Timing: 20 clocks 


Indirect intersegment 


11171111 =~')mod0171 r/m 


Timing: 29+EA clocks 


JMP=Unconditional Flags O D!ITS ZAP C 
Jump 
Direct within segment 
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RET=Return from 
CALL 


JE/JZ=Jump on 
Equal/Zero 
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itpo1oii] disp 


Timing: 7 clocks 


Timing: 7+EA clocks 


Direct intersegment 


Timing: 7 clocks 


Indirect intersegment 


111111114 ;mod 101 r/m 


Timing: 16+EA clocks 
Flags O D ITS ZAP C 


Within segment 


11000011 
Timing: 8 clocks 


Within seg. adding immediate to SP 
11000010 


Timing: 12 clocks 


Intersegment 
11001011 


Timing: 18 clocks 
Intersegment, adding immediate to SP 
Timing: 17 clocks 


Flags O DI!ITS ZAP C 


01110100 


Timing (clocks): jump is taken 
jump is not taken 


All mnemonics Intel Corporation 1981. 


JL/JNGE=Jump on 
Less/Not Greater or 
Equal 


JLE/JNG=Jump on 
Less or Equal/Not 
Greater 


JB/JNAE=Jump on 
Below/Not Above or 
Equal 


JBE/JNA=Jump on 
Below or Equal/Not 
Above 


JP/JPE=Jump on 
Parity/Parity Even 


JO=Jump on 
Overflow 


JS=Jump on Sign 


JNE/JNZ=Jump on 
Not Equal/Not Zero 


Flags O Dt!ITS ZA P 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DtsttTS ZA P 


01111110 


Timing (clocks): jump is taken 
jump is not taken 


Flags O D1TS ZAP 
for110010] disp 


Timing (clocks): jump is taken 
jump is not taken 


o1110110] disp | 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DI TS ZAP 


qtttt010] disp 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DtItTS ZA P 


O1itonoo}| disp 


Timing (clocks): jump is taken 
jump is not taken 


Flags O D ITS ZA P 


01111000 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DtITS ZA P 
ortio1or}] disp 


Timing (clocks): jump is taken 
jump is not taken 


\ 


crete ee tee ee eee 
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JNL/JGE=Jump on 
Not Less/Greater or 
Equal 


JNLE/JG=Jump on 
Not Less or 
Equal/Greater 


JNB/JAE=Jump on 
Not Below/Above or 
Equal 


JNBE/JA=Jump on 
Not Below or 
Equal/Above 


JNP/JPO=Jump on 
Not Parity/Parity Odd 


JNO=Jump on Not 
Overflow 


JNS=Jump on Not 
Sign 


LOOP=Loop CX 
Times 


240 


Flags O Dt! TS ZA P 


01111101 


Timing (clocks): jump is taken 
jump ts not taken 


Flags O DI! TS ZA P 


0171171171111 


~ Timing (clocks): jump is taken 


jump is not taken 


Flags O DsIlTS ZA P 
011710011 disp 


Timing (clocks): jump is taken 
| jump is not taken 


Flags O D ITS ZAP 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DsITS ZA P 


Timing (clocks): jump is taken 
jump is not taken 


Flags O DtTS ZA P 


o1ito001] disp 


Timing (clocks): jump is taken 
jump is not take 


Flags O DtstTS ZA P 


01111001 


Timing (clocks): jump is taken 
Jump is not taken 


Flags O Dt!ITS ZA P 


Timing (clocks): jump is taken 
jump is not taken 
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LOOPZ/LOOPE=Loop 
While Zero/Equal 


LOOPNZ/LOOPNE=Loop 
While Not Zero/Not 
Equal 


JCXZ=Jump on CX 
Zero 


INT=Interrupt 


Flags O D!ITSZAPC 
11100001] disp | 


Timing (clocks): jump is taken 41 
jump is not taken 5 


Flags O DITSZAPC 


rip00000] disp 


Timing (clocks): jump is taken 11 
jump is not taken 5 


Flags O D4tItTS ZAPC 


[iiooott] aise 


Timing (clocks): jump is taken 9 
7 jump is not taken oF 


8086 Conditional Transfer Operations 
INSTRUCTION CONDITION INTERPRETATION 


JE or JZ ZF=1 “equal” or “zero” 

JL or INGE (SR xor OF)=1 “less” or “not greater or equal’ 

JLE or JNG ((SP xor OF) “less or equal” or “not greater” 
| or ZF)=1 | 

JB or JNAE CF=1 . “below” or “not above or equal’ 

JBE or JNA (CF or ZF)=1 “below or equal” or “not above” 

JP or JPE PF=1 “parity” or “parity even” 

JO OF=1 “overflow” 

JS SF=1 “sign” — 

JNE or JNZ ZF=0 “not equal” or “not zero” — 


JNL or JGE | (SF xor OF)=0 | “not less” or “greater or equal” 
JNLE or JG | ((SF xor OF) or | “not less or equal” or “greater” 


ZF)=0 
JNB or JAE CF=0 “not below” or “above or equal” 
JNBE or JA (CF or ZF)=0 _ “not below or equal” or “above” 
JNP or JPO PF=0 “not parity” or “parity odd” 
JNO OF=0 “not overflow" 
JNS OF=0 “not sign” 


NOTE: “Above and below” refer to the relation between two 


unsigned values, while “greater” and “less” refer to the 
relation between two signed values. 


TS ZAP C 


Flags; O D | 
OO 


Type specified 
Timing: 50 clocks 
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Type 3 


[1 1001100 | 
Timing: 51 clocks 
INTO=Interrupt on Fiags OD! TS ZAP C 
Overflow OO 
Timing: 52 clocks if pass 4 clocks if fail 
IRET=Interrupt Return Flags O D!ITS ZAP OC 
R RRRRRR R R 
Timing: 24 clocks 
eS 
1.5.7 PROCESSOR 
CONTROL 
CLC=Clear Carry Flags O D1ttTS ZAP C 
O 
Timing: 2 clocks: _ 
STC=Set Carry Flag; O DI TS ZAPC 


Timing: 2 clocks 
CMC=Complement - Flags O DI TS ZAP 


Carr : 
y : 11110101 


Timing: 2 clocks 


xO 


NOP=No Operation 


CLD=Clear Direction 


Timing: 2 clocks 


l 
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a 4 


STD=Set Direction 


CLI=Clear Interrupt 


STl=Set Interrupt 


HLT=Halt 


WAIT=Wait 


LOCK=Bus Lock 
Prefix 


ESC=Escape (To 
External Device) 


Flags) O D | 


Flags O OD 
: O 


Flags) O D | 


Flags O D | 


Timing: 2 clocks 


Flags: O D | 


Flags) O D | 


Flags O D | 


> 


> 


> 


> 


»> 


> 


TS 2A 


iTOT1 x x x [mod x xx rTM 


Timing: 7+EA clocks 
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ES 
1.6 PROCESSOR 
RESET REGISTER 
INITIALIZATION 


eS 
I.7 8088 RESERVED 
LOCATIONS 


Interrupt Pointer Table 


244 


NOTES: | 

If d=1 then “to”; if d=0 then “from.” 

If w=1 then word instruction; if w=0 then byte instruction. 

lf sw=01 then 16 bits of immediate data form the operand. 

If sw=11 then an immediate data byte is sign extended to form the 
16-bit operand. 

If v=0 then “count’=1; if v=1 then “count” in (CL). 

X=don't care. 

Z is used for some string primitives to compare with ZF FLAG. 

AL=8-bit accumulator. 

AX=16-bit accumulator. 

CX=Count register. 

DS=Data segment. 

DX=Variable port register. 

ES=Extra segment. 

Above/below refers to unsigned value. 

Greater=more positive signed values. 

Less=less positive (more negative) signed values. 

See section |.2 for Operand summary. 

See section |.4 for Segment Override summary. 


Flags=0000H (to disable interrupts and single-stepping) 


CS=FFFFH (to begin execution at FFFFOH) 
IP=0000H 


DS=0000H 
SS=0000H 
ES=0000H 


No other registers are acted upon during reset. 


INTERRUPT —~ LOCATION FUNCTION 


0 OOH-03H Divide by zero 
1 04H-07H Single step 
2 08H-OBH Non-maskable interrupt 
3 OCH-0OFH One-byte interrupt instruction 
4 10H-13H Interrupt on overflow 
Fes 
2 -  s  - 


INTERRUPT TYPE VECTOR 
KH cs A, «41S LOCATION FOR 
TYPE, ADDRESS OF INTERRUPT 
Hm SERVICE ROUTINE 


crn ce ee eee ee 


All mnemonics £Intel Corporation 1981. 


1.8 8088 
INSTRUCTION SET 
MATRIX 


1.9 MNEMONIC 
INDEX 


NOTES: 

b=byte operation 
d=direct 

f=from CPU reg 
i=immediate 
ia=immed. to accum. 
id=indirect 


is=immed. byte, sign ext. 
l=long ie. intersegment 


m=memory 
r/m=EA is second byte 
si=short intrasegment 
sr=segment register 
t=to CPU reg 
v=variable 

w=word option 

Z=zero 


Mnemonic Page Mnemonic Page Mnemonic Page 
RAP ioeceeh ies, 230: IG dis ahetlenes 240 MOV ..... i. 226 
PADD: sisecasecincinas, 233 VGEiitacticns 240 MOVS ........ 236 
AAM ..........ccc. Zoe. Ake eae! 239 MUL... 232 
BAS: ctitietatorte. as 232 « SLE .ccemsiuvtren 239} (NEGQieees nea: 231 
ADC ss3sscncdividcess 229 JMP Le. 290 “NOP aust se eantt a: 242 
POD: beiececeuienats: 229) JNA oe. 299° ‘INOW eee oinosas 233 
AND eects sconae: 235° . RINAES sitesi ees 299° (OR ictincivenisaeien 235 
GALS wrest 237 3 JNB .... ee. 240°. HOUT, acetate ceiver 228 
CBW ainieatcaliae: 233° AINBE. cesses. 240) (POP sesedseuviaeaies 227 
CLG. sepiesictner aa 242 =JNE ow. 239. 'POPP co ceuess 229 
CED: sy cntisiecorcagen 242 JNG 2... 239 PUSH ....WW... 227 
68 eee 243 JNGE ow. 239 PUSH .............. 229 
OMG. oh an tenariens! 2AQ: SIN ceeGeecat sualasi 240 RCL .... i. 234 
CMP. ..........00000.. 231° NUE hes. 240  =FRCR ...............44.. 234 
CMPS ............... 236: MNO ssicsuaiedss 240° (REP: ce ctancows: 236 
1!) 0 eeeenen eee 2338. INP aisicstercociien ZAQ> “RED seeeeceseuseucees 238 
DAP spied those: 230) «=JNS on. 240 = =ROL ............c. 234 
AS aiieecaesssies PSA; - WNZ a teceuenaeaee: 239: ROR vssieseciacsis 234 
DEG atilotcestesentte PON © DO satetrtcecty 0e: 239° “SAP dcsoeiitacccs 228 
DIV ttitaeticestscces 282. WR tenicidirwacens 239. “SAL Akoncendon 233 
EOC asdainnncas ZS RIE | cl ae ee ee ee 239: (SAR sicausuvcus, 234 
PUG kadiescteestee AS, SPO sige erces, 240 “SBB® weir te ieecetts 231 
HOW ecstesteteceenacs 233° WIS ctaacintiek ts 239 SCAS ..... i. 237 
IMUL oo, a) Se ee 236 SUL wens: 233 
LIN: soghctese Metascec, 227  AREAP  cceeraddcshosaces 228 SFI faanccieede, 233 
ING: wcbetecciemacaneaes 230) “LDS: ssideinisatecss: 228 STC? sicotaeaigons 242 
WIN _cxtisanctticenisti 24) LEAs 228) 2OVD? wxerassctutees 243 
INTO: ce teeretaiee BAO ES sssasicseinceeics 229; QOU gece tau 243 
IRE Setrcnaeesccaee: 242 LOCK oo... 243 > “STOS siseectsistien 237 
oe ne 240 LODS ....... 230. OB stnnte oun 230 
DA Aer oxen: 240 LOOP ............... 240 TEST ..... 235 
OID. eokationt eat st 239 LOOPE ............ 241 WAIT ou... 243 
1] 3] eee Rn earns 239 LOOPNE .......... 241 XCHG .............. 227 
SORZ » ssesitsseihocess: 241 LOOPNZ .......... 24V° DAM ct cutetseias 228 
SD stents tana: 238 LOOPZ ....0..... 241 = XOR on. 236 
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Appendix J SAMPLE SIRIUS 1 SOFTWARE DRIVERS 


ee PL/M-86 COMPILER SIRIUS Systems Technology, Inq. (c) 1982 S-1 Hardware 04/01/82 PAGE 1 
Example software drivers for S-l Hardware 


SERIES-III PL/M-86 V1.0 COMPILATION OF MODULE HARDWARE 
NO OBJECT MODULE REQUESTED ' 
COMPILER INVOKED BY: P.86 TEMP.SRC OPTIMIZE(3) PAGELENGTH (42) PAGEWIDTH(109) PRINT(:F4:HW.LS) NOOBJECT 


STITLE (c) 1982 


SSUBTITLE ('Example software drivers for S-1 Hardware') . 
[J BEREREREKREKREKK ERE EKER KERR RR RREREEEREREREREREREREEEKKKEEKKKKKKKKKKKKKK 
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PL/M-86 COMPILER 04/01/82 PAGE 2 
Example software drivers for S-1l Hardware 


Seject 
: SSMALL ROM 
. 1 Hardware: do; 

2 1 Declare dcl literally ‘declare'; 

3 1 Del lit literally 'literally'; 

4 1 Del addr lit ‘address', 
ext lit ‘external', 
init lit ‘initial', 
intg lit ‘integer', 
proc lit ‘procedure', 
ptr lit ‘pointer', 
pub lit ‘public’, 
rent lit ‘reentrant', 
ret lit ‘return', 
struc Lit). 'structure', 
boolean lit ‘byte', 
true lit 'OFFH', 
false lit ‘OOOOH'; 

PL/M-86 COMPILER 04/01/82 PAGE 3 


KB: Hardware bit defs 


Ssubtitle('KB: Hardware bit defs') 


5 1 del SRSintbit lit '4'; /* KB shift register interrupt mask in6522 IER/IFR */ 
6 1 dcl SRSenable lit ‘Och'; /* KB shift register enable in 6522 ACR */ 
7 1 del CBlSintbit lit '10h'; /* KB RDY edge-sense interrupt mask 6522 PCR */ 
8 l dcl CBl$pos_edge lit '1Oh'; /* KB RDY edge-sense control in 6522 PCR */ 
9 1 dcl kb$databit lit '40h'; /* KB DATA level */ 
10 1 del kbSackctl lit '2'; /* KB ACK control for 6522 output */ 
ll ou del kb$TIMEOUT lit '300'; /* exror timeout in milliseconds x / 
12 1 dcl timerl_ena lit ‘OcOh'; /* timer 1 interrupt mask in 6522 IER/IFR */ 
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PL/M-86 COMPILER 04/01/82 PAGE 4 
KB: Hardware bit defs 


Seject 
/* KYBRD PORT (e8040..e804f) */ 
13 1 dcl via(16) struc ( /* 6522 port organization / 


RB byte, 
RA byte, 
DDRB byte, 
DDRA byte, 
TIMER1 word, 
TIMERLL word, 
TIMER2 word, 


SR byte, 

ACR byte, 

PCR byte, 

IFR byte, 

IER byte, 

RAX byte) at (0e8000h) ; 
14 1 dcl kbSstate byte; /* current state of keyboard stateware */ 
15 Ll dcl kb$data byte; /* constructed data from keyboard «/ 

/* nybble convert table for inverted shift reg */ 
16 1 dcl Ctable(*) byte data (0,8,4,0ch, 2,0ah,6,0eh, 1,9,5,0dh, 3,0bh,7,0fh); 
17.sil dcl tick lit '50'; /* console clock rate in milliseconds «/ 
PL/M-86 COMPILER 04/01/82 PAGE 5 


KB: external routines 


Ssubtitle("KB: external routines’) 


ae 
/* 
7 Signal user about keyboard error state -- ring bell 
18 1 acl Signal$KBSerror lit 'Ringbell'; 


_/* Ringbell found in SOUND module */ 


* 


y Process key board event -- in external module 
19 1 Process$Event: proc(event) byte ext; 
20 2 dcl event byte; 
21 2 end; 

* 

- Software clock resource -- set timeout for interrupt to KBSreset 
22 1 setS$KBSclock: proc(Period) ext; 
23 2 dcl Period intg; /* timeout delay in milliseconds */ 
24 2 end set$KB$clock; 

PL/M-86 COMPILER SIRIUS Systems Technology, Inc. (c) 1982 S-1 Hardware 04/01/82 PAGE 6 
KB: Keyboard Stateware 
Ssubtitle('KB: Keyboard Stateware') 

td 

* KB interrupt entry (level 6) 

* 
25 1 kb$irq: proc pub rent; 
26 2 do case kb$state; 

/* 

* State 0 to state 1: shift register (full) interrupt 

xy. 
27 kbst0: do; 


3 
28 4 via(4).ACR= via(4).ACR and not SR$enable; /* disable shift register */ 
/* prepare for interrupt on negative edge of KB RDY */ 


29 4 via(4).PCR= via(4).PCR and not CBl$pos_edge; a, 
30 4 via(4) .IER= 80h or CBlSintbit; 

31 4 disable; 7* time critical section */ 

32 4 kbS$data = via(4) .SR; /* get KB data from SR (clears SR IRQ) */ 
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via(4) .IER= SRS$intbit; /* disable SR interrupt ial | 
/* assert KB ACK control on interrupt */ 
via(4).RB = via(4).RB or kbSackctl; /* (CBl IRQ is reset) */ 
enable; /* end of critical section */ 
kb$state = 1; /* set to state l */ 
end; 
/* 
: State 1 to state 2: interrupt from negative edge on KB§RDY 
* 
kbstl: do; 
disable; /7* time critical section */ 
if (via(4).RA and kb$databit) [| 0 then /* if data bit is not low then */ 
call kbS$error; /7* stop bit error has occurred */ 
else do; /* prepare for interrupt on positive edge of KB RDY */ 
via(4).PCR= via(4).PCR or CBl$pos_edge; 

/* release KB ACK control on interrupt */ 
via(4).RB = via(4).RB and not kbSackctl; /* (CBl IRQ is reset) */ 
kbSstate = 2; /* set to state 2 */ 

end; 
enable; /* end of critical section */ 
end; 
04/01/82 PAGE 
KB: Keyboard Stateware 
Seject 
/* 
* state 2 to state 0: interrupt from positive edge on KBS$RDY 
*/ 
kbst2: do; 
if (via(4).RA and kb$databit) = 0 then /* if data bit is low then */ 
call kbSerror; /* stop bit error has occurred */ 
else. do; 
call kbSreset; /*reset hardware/software for next event */ 
/* call event processing routine with order of bits reversed to */ 
/* reflect physical key: number and event type (open or close) */ 
if not Process$Event( shl(Ctable(kb$data and Ofh) ,4) 
or Ctable(shr (kb$data,4)) ) then 
call signal$KBSerror; /* signal error in event process */ 
end; 
end; 
end; 
end kbS$irq; 
04/01/82 PAGE 


KB: Keyboard support routines 


Ssubtitle('KB: Keyboard support routines') 


kb$reset: proc rent; 
dcl dummy byte; 
via(4).IER = CBlSintbit; 
via(4).RB = via(4).RB and not kbSackctl; 
via(4).ACR = via(4).ACR or SRS$enable; 
dummy = via(4).SR; 
via(4).IER = 80h or SRSintbit; 
kb$state = 0; 
- Call set$KBSclock (0); 
end kbSreset; 


kb$Serror: proc rent; 
via(4).RB = via(4).RB or kbSackctl; 
via(4).IER = 7f£h; 
call set$KBSclock (kb$TIMEOUT) ; 
end kbSerror; 
kb$init: proc pub rent; 
via(4).RB 
via(4).DDRA 
via (4) .DDRB 


via(4).RB and (OFFh-3); 
via(4).DDRA and not kb$databit; 
via(4).DDRB or kbSackctl; 


via(4).IER = 7£h; 
via(4).PCR = 0; 
via(4).ACR = 0; 


clear CBl interrupts 
release kbSack 
enable shft reg 

clr any pending irg 
enable sr interrupts 
init keybrd state 
clear timeout counter 


force kb$ack high 
allow no interrupts 
time out keyboard 


/* puts KB hardware/software into state 0 */ 
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via(2).ACR= (via(2).ACR and OcOh) or 40h; 
via(2).timerlL= tick*1000; 
via(2).IER = timerl_ena and 7fh; 
call kb$reset; 
end kbSinit; 


PL/M-86 COMPILER SIRIUS Systems Technology, Inc. (c) 1982 S-1 Hardware 04/01/82 PAGE 
CRTreg: controller chip registers 
SSUBTITLE ('CRTreg: controller chip registers') 
DCL CRTS$0O byte AT (OE8000H) ; /7* CRI-chip address register */ 
DCL CRT$1 BYTE AT (OE8001H); . /* CRI-chip internal register port */ 
& 
= Set CRT register 
*/ 
setSCRTSreg: proc (reg,value) rent; 
dcl reg byte; 
dcl value byte; 
CRT$O0=. reg; /* select register */ 
CRTS1= value; /* set data a/ 
end set$CRT$reg; 
04/01/82 PAGE 
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CRTreg: cursor-display mode control 


SSUBTITLE (‘CRTreg: cursor-display mode control') 


dcl rast$start lit ‘10°; 


DCL Cursor$PAR BYTE; /* VAR: contents for CRT cursor-start 
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/* CRT reg: cursor-start & cursor-display mode */ 


raster & cursor display mode 


del blink$on boolean; /7* FLAG: =0 Blinking cursor on (fast) */ 
dcl  cursSoff boolean; /* FLAG: [|0 Cursor off */ 
& 
* Set cursor to current Cursor parameter byte. 
*/ 
setScursor: proc rent; 
call set$CRTS$reg(rast$start,Cursor$PAR) ; /* set raster start reg */ 
end set$cursor; 
/* 
* Set block cursor. 
*/ 
BLOCKSCRS:PROC RENT; . 
Cursor$PAR = Cursor$PAR AND OEOh; /* set block cursor */ 
call set$cursor; ; /* set cursor mode reg */ 
END BLOCKSCRS; 
/* 
* Set underscore cursor. 
“/ 
UNDERSCORESCRS : PROC RENT; 
Cursor$PAR = OOFh OR (Cursor$PAR AND OEOh); /* set underscore cursor */ 
call set$cursor; /* set cursor mode reg */ 
END UNDERSCORESCRS ; 
04/01/82 PAGE 
CRTreg: cursor-display mode control 
Seject 
* 
* Return cursor to previous modes: block or underline, steady or flashing 
a/ ; 
CURSORSON: PROC RENT; 
cursSoff= false; /* reset cursor off flag */ 
if blink$on then Cursor$par= Cursor$par or 060h; /* set to flashing mode */ 
else Cursor$par= Cursor$par and O1Fh; /* set to steady mode */ 
call setS$cursor; /* set cursor mode reg ef 


END CURSORSON; 


9 


10 


*/ 


ll 


/* 
* 


Turn cursor off. 


*7 
117 Ll CURSORSOFF:PROC RENT; 
118 2 cursS$off= true; /* set cursor off flag */ 
119 2 Cursor$PAR = 020h OR (CursorS$PAR AND O1Fh); /* set to off mode. */ 
120 2 call setScursor; /* set cursor mode reg */ 
121 2 END CURSORSOFF; 
/* 
= Set cursor blinking. 
*7 
122 1 CRSSBLINKSON:PROC RENT; 
123 2 blinkSon= true; /* set blinking on flag */ 
124 2 if not curs$off then Cursor$PAR= 060h OR Cursor$PAR; /* set flashing,if not off */ 
126 2 call set$cursor; /* set cursor mode reg */ 
127. 2 END CRSSBLINK$ON; 
* 
be Set cursor steady. 
aia 
128 1 CRSSBLINKSOFF:PROC RENT; 
129 2 blink$on= false; /* reset blinking on flag */ 
130 2 if not cursSoff then Cursor$PAR= 01Fh and Cursor$PAR; /* set steady,if not off */ 
132 2 call set$cursor; /* set cursor mode reg */ 
133 2 END CRSSBLINKSOFF; 
PL/M-86 COMPILER 04/01/82 PAGE 12 
CRTreg: Cursor positioning 
SSUBTITLE ('CRTreg: Cursor positioning') 
134 1 dcl cursaddrH lit "14'; /* CRT reg: MSByte of cursor location word, bits: xx54$3210 */ 
135 1 acl cursaddrL lit ee se /* CRT reg: LSByte of cursor location word */ 
/* 
* Position Cursor to Absolute Font Cell number 
* and display bank 
* 
‘agg 1360 ol POS$Cursor: proc (CellSnumber) pub rent; 
137 2 dcl Cell$Number word; /* Absolute Font Cell Number & diplay bank */ 
138 2 call set$CRTS$reg (cursaddrL, low(Cell$number) ); 
139 2 call set$CRT$reg (cursaddrH, high(Cell$number) ); 
140 2 end PpoS$sCursor; 
PL/M-86 COMPILER 04/01/82 PAGE 13 
CRT: video contrast & brightness 
SSUBTITLE ('CRT: video contrast & brightness') 
141 1 DCL CBctrl BYTE AT (0E8040H); /* Contrast & Brightness control register * 
/* bits: CCCB$BB-- ad 
/* 
* Raise video contrast one level. 
*/ 
142 1 contrastS$up: proc rent; 
143 2 dcl a byte; 
144 2 if (a:= (CBctrl + 20h) and OEOh) [| 0 then /* add & check upper limit */ 
145 2 CBctrl= (CBctrl and Ol1FH) or a; /* set contrast, bits: 765 */ 
146 2 end contrastS$up; 
/* 
* Lower video contrast one level. 
*7 
147 1 contrast$down: proc rent; 
148 2 dcl a byte; 
149 2 if (as:= (CBcetrl - 20h) and OEOh) [| OEOh then /7* sub & check lower limit */ 
150 2 CBctrl= (CBetrl and O1FH) or a; /* set contrast, bits: 765 */ 
151 2 end contrast$down; 
/* 
* Raise video brightness one level. 
* 
152 1 bright$up: proc rent; 
153 2 dcl a byte; 
154 2 if (a:= (CBctrl + 4) and 01CH) [| 0 then /* add & check upper limit */ 
155 2 CBctrl= (CBctrl and OE3H) or a; /* set brightness, bits: 432 */ 
156 2 end brightS$up; 
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* 


‘ Lower video brightness one level. 
bright$down: proc rent; 
del a byte; 
if (a:= (CBetrl - 4) and 01Ch) [| 01Ch then 
CBctrl= (CBctrl and O0E3H) or a; 
end bright$down; 
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CRT: display RAM/Font Cells 


SSUBTITLE ('CRT: display RAM/Font Cells') 


del screen$ram word at (OF0000h); 
del screenS$addr ptr; 
DCL SCREEN based screenSaddr (2000) word; 


/* 
* Screen Buffer Word variables 
47 
dcl char $mode word pub; 
dcl char$base word pub; 
DCL REVBIT LIT "8000H'; 
DCL BGBIT LIT '4000H'; 
DCL UNDBIT LIT "2000H'; 
dcl INVBIT lit '1000h'; 
dcl extraBIT lit 'O800h'; 


/* sub & check lower limit */ 

/* set brightness, bits: 432 */ 
04/01/82 PAGE 

/* memory address of display RAM */ 


/* display ram pointer, base of word ARRAY */ 
7* ARRAY of Font Cell Pointers */ 


/7* CRT attribute bits: 7654$3--- */ 
/* CRT Font Cell Pointer base for */ 
/* ASCII symbol index */ 


/* 
* Display symbol from character set (typically ASCII) 
x at absolute Font Cell number 
* (typically: [line| * [display width| + [column| ) 
: with current Cursor & Display modes. 


Display$symbol: proc (Symbol$code,Cell$Snumber) pub rent; 


dcl SymbolScode byte; 
dcl Cell$Number word; 


/* Symbol print code */ 
/* Absolute Font Cell Number */ 


screen(CellS$Number)= (Symbol$code + char$base) OR char$mode; 


end Display$symbol; 
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CRT hardware initialization 


SSUBTITLE ('CRT hardware initialization' ) 


DCL CRT§$config (*) BYTE DATA (92,80, 81,0CFh, 


CRTSInit: PROC; 
DCL I BYTE; 


screenSaddr= @screen$ram; 


char$mode= BGBIT; 
charSbase= 20; 


cursSoff= false; 
blinkSon= false; 
Cursor$PAR= 0; 


DO I=0 TO OFH; 
CALL SETSCRTSREG (I, (CRTconfig(I))); 
END; 


END CRTSInit; 


04/01/82 


/* COMMENT THIS !!!! =] 
25,6, 25,25, 3,14, 0,15, 0,0, 0,0); 
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SOUND variables & hardware defs 


SSUBTITLE (‘SOUND variables & hardware defs') 


dcl bell$freq LIT ‘76's 


word at (0E8084h); 


dcl codec$clk 

dcl codecSctl byte at (OE808Bh); 
dcl codecSsda word at (0E8060h); 
dcl volume byte at (QOE802Ah); 
dcl vol$ctl byte at (0E802Bh); 
del vol$clk word at (0E8028h) ; 


dcl bellSon byte; 
dcl volSlevel byte; 
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/* period of bell tone: frequency= 14.9KHz */ 


/* TIMER1: codec clock frequency */ 
/* ACR: codec clock control register */ 
/* "7, 
/* SR: volume shift-register */ 
/* ACR: SR control register */ 
/* TIMER2: volume SR clock */ 


/* FLAG: bell sound presently active */ 


/*current volume level (nine levels: 0 -~| 8) 


* volume shift pattern lookup table */ 


d@cl vol$table (*) byte data (OFFh,7FH,3FH,1FH,OFH,7,3,1,0); 
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SOUND: Bell control 


SSUBTITLE ('SOUND: Bell control') 
/* 


7 


SetSBELLSclock: proc (Period) ext; 
dcl Period intg; 
end set$BELLSclock; 


* 


* CODEC Hardware reset 
*/ 


Bell$init: proc pub rent; 
volSlevel= length (volS$table)-2; 
call Bell§$clock; 

end BellSinit; 
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SOUND: Bell control 


Seject 

BellS$clock: proc pub rent; 
codecSctl = codec$ctl and not OCOh; 
codec$sda = 5E00h; 
codec$sda = O0D40h; 
codec$sda = OAA80h; 
codec$sda = 00COh; 


vol$ctl = (vol$ctl and not 3Ch) or 10h; 
volSclk = 1; 

volume = volStable(volSlevel); 

bellSon = false; 


end bellS$clock; 


Ring$bell: proc pub rent; 
if not bellSon then do; 
call bell$clock; 
codecS$sda = O£f80h; 


codec$ctl codec$ctl or OcOh; 
codec$clk bellSfreq; 
bellSon = true; 
end; 
call set$bell$clock (100); 
end; 
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= Software clock resource -- set timeout for interrupt to Bell$clock 


/* timeout delay in milliseconds */ 


/* set initial volume level near max */ 
/* set hardware to a known & quiet state */ 


04/01/82 PAGE 

/* disable codec clock */ 

/* initialize codec SDA to input mode... */ 

/* «2. to reduce extraneous noise x / 

/* set SR & T2 volume register modes */ 

/* volume clock frequency set beyond perception */ 
/* set volume to current level */ 

/* set bell state to off */ 

/* start bell if sound is off */ 


/* init codec hardware on every bell 
/* set output waveform to 4 up & 4 down, 
/* a low amplitude triangle wave. */ 
/* set codec clock to free run 
/* set audio pitch frequency 
/* set bell state on 


/7/* turn off bell in 100 milliseconds */ 
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SOUND: volume control 


SSUBTITLE ('SQUND: volume control') 
/* 


* Raise CODEC volume one level. 
*/ 
volumeSup: proc rent; 
if vol$level |= length(vol$table)-1 then 
volSlevel= length (vol$table)-1; 
else vol$level= volS$level+l; 
volume= volS$table (vol$level); 
end volumeSup; 


* 
* Lower CODEC volume one level. 


*/ 
volume$down: proc rent; 
if vol$level |= length(vol$table)-1 then 
volS$level= length (vol$table)-2; 
else 


if vol$level[|]0 then vol$level= vol$level-1; 
i 


volume= volS$table(vol$level); 
end volumeS$down; 
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SIO: Serial I/O dvrs for TTY: and ULI: 


Ssubtitle('SIO: Serial I/O dvrs for TTY: 


/*ctr device dcls*/ 
dcl sioctr struc 
(adata byte, 
bdata byte, 
XXX byte, 
ctrcetl byte) at (0E0020h); 
/*sio device dcls*/ 
dcl siodev struc 
(adata byte, 
bdata byte, 
actl byte, 
betl byte) at(0E0040h); 
del rxSavail literally 'l', 
txSempty literally '4'; 


dcl serial_params struc 
(actrisb byte, 
actrmsb byte, 
betrisb byte, 
betrmsb byte, 


/* if [baud] then lsb = ??h msb = ??h 
50 === LAh 06h 

75 sss 1llh 04h 

110 === C6h 02h 

134.5 =ss=| 44h 02h 

150 sia 08h 02h 

200 === 86h Olh 

300 ===| 04h Olh 

600 === 82h 00h 

1.2k a 4lh 00h 


SIO: Serial I/O dvrs for TTY: and ULI: 
Seject 


2Ch 00h 
1.8k ===| 2Bh 00h 

28h 00h 

2.0k ==5| 27h 00h 

2.4k s==| 21h 00h 

20h 00h 
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/* check upper limit 

/* set to max volume 

/* bump level up by one 
/* set volume register 


/* check upper limit 
/* set to max volume-1 


and UL1:') 


/* drop level by one 
set volume register 


04/01/82 


/*LSByte of chan a.‘s baud rate 
/*MSByte ... 
/*LSByte of chan b.'s baud rate 
/*MSByte ... 


75.00 
110.00 
134.00 
150.00 
200.00 


300.00 


600.00 
1201.00 


1775.00 
1816.00 


1953.00 
2003.00 


2367.00 
2441.00 


=) 
-0- 
=o 
-0.37% 
=0= 
aO= 


-1.39% 
+0.09% 


+0.15% 


+1.71% 


l. 25Mhz/ (tbaua|*16) 


(min. tol. dist.43.75%) 
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43.75%) 
43.75%) 
40.23%) 
43.75%) 
43.75%) 


43.75%) 


43.75%) 
42.99%) 


30.54%) 
42.88%) 


21.33) 
42.32) 


30.64%) 
27.51%) 
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3.6k ===] 16h 00h 3551.00 -1.36% ( = 30.83%) 


15h OOh 3720.00 +3.33% ( . 12.48) 
1lh OOh 4595.00 ~-4.27% ( . 3.185%) 
4.8k ===| 10h OOh 4882.00 +1.02% ( # 34.06%) 
09h 00h 8680.55 -9.58% (DISTORTED) 
9.6k ===| 08h OOh 9765.56 +1.73% (min.tol.dist.27.32%) 
06h 00h 13020.83 -9.58% (DISTORTED) 
05h 00h 15625.00 +8.51% (DISTORTED) 
OSh 00h 15625.00 -18.62% of 19.2k (DISTORTED) 
19.2k ===| 04h 00h 19531.25 +1.02% (min.tol.dist.34.06%) 


Min.tol.dist. figure assumes no channel noise effects. 
NOTE: possible noise DOES NOT includes bias distorition 
caused by various cable capacitance effects*/ 
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SIO: Serial I/O dvrs for TTY: and ULI: 


Seject 


cr2a byte, /*bus interface option: 10h if baud a [= baud b 
14h if baud a baud b*/ 


cr4a byte, 
cr4b byte, 
/*cr4x (16x) $54$ (stops) $(even)$(parenb) = 4?h 
01 00 ss e p 
Ss 01 1 stop 
10 1.5 stop 
ll 2 stop 
e = 1 even 
e = 0 odd, byte transparent 
p = 1 even or odd 
p = 0 byte transparent*/ 


ono 


cr3a byte, 
cr3b byte, 


/*cr3x (rbits)$ (autoenb) $4$3$2$1$ (renb) = ?lh 
0000 1 


bb 1 
bb = 11 byte transparent cr3x = Elh 
= 01 even,odd cr3x = 61lh*/ 


cr5a byte, 
cr5b byte) EXT; 
/*cr5x (dtr)$(tbits)$ (br) $(tenb)$2$ (rts)$0 = ?Ah 
1 bb 0 1 01 0 


bb = 11 space,mark cr5x = EAh 
bb = 01 even,odd,no cr5x = AAh*/ 


PL/M-86 COMPILER 04/01/82 PAGE 23 
SIO: Serial I/O dvrs for port A -- TTYSINSTAT & TTYSSTAT 


Ssubtitle('SIO: Serial I/O dvrs for port A -- TTYSINSTAT & TTYSSTAT') 


246 1 TTYSinS$stat:proc boolean PUB; 

247 2 if ( (siodev.actl AND rxSavail) [| 0) 
then return(true); 

249 2 return (false); 

250 2 end TTYSinS$stat; 

251 1 TTYSstat:proc boolean PUB; 

252 2 if ( (siodev.actl AND tx$empty) = 0) 
then return (true); 

254 2 return(false); 

255 2 end TTYS$stat; 


255 
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257 
258 
259 


260 


261 
262 


263 
264 
265 
266 


267 
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273 
274 


275 
276 
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278 
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SIO: Serial I/O dvrs for port A -- TTYSGET & TTYSPUT 


S$subtitle('SIO: Serial 1/0 dvrs for port A -- TTY$GET & TTY$PUT' ) 


TTYSget:proc byte PUB; 


/*user must not activate this procedure if siodev chan. a reg. ptr 
is not set to 0 (only {| 0 if user has been mucking with hardware*/ 
go: wes (siodev.actl AND rx$avail) = 0); /*wait forever till empty 
end; 
return (siodev.adata) ; /*input form 7201 


end TTy$get; 


TTYSput:proc(char) PUB; 
dcl char byte; 


/*user must not activate this procedure if siodev chan. a reg. ptr 

is not set to 0 (only [| 0 if user has been mucking with hardware*/ 
do while( (siodev.actl AND txSempty) = 0); /*wait forever till empty 
end; 
siodev.adata = char; 
return; 


/*output a char 


end TTY$put; 
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SIO: Serial I/O dvrs for port B -- ULIS$STAT & UL1PUT 


$subtitle('SIO: Serial I/O dvrs for port B -- ULIS$STAT & ULIPUT') 


UL1S$stat:proc boolean PUB; 


if ( (siodev.bctl AND tx$empty) = 0) 
then return(true) ; 
return(false); 


end UL1Sstat; 


UL1$put:proc(char) PUB; 
dcl char byte; 


/*user must not activate this procedure if siodev chan. b reg. ptr 

is not set to 0 (only [| 0 if user has been mucking with hardware*/ 
do while( (siodev.bctl AND txSempty) = 0); /*wait forever till empty 
end; 
siodev.bdata = char; 
return; 


/*output a char 


end UL1$put; 
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SIO: Serial I/O dvrs for ports A & B -- SIOSINIT 


$subtitle('SIO: Serial I/O dvrs for ports A & B -- SIOSINIT') 
SIOSinit:proc PUB; 

siodev.actl 00$011$000b; 
siodev.bectl 00$011$000b; 


/*chan. a reset 
/*chan. b reset 


/*load timer now; cant touch 7201 chip for 4 2.5Mhz clocks*/ 

sioctr.ctrctl = 36h; /*7$ (ctra) $ (r1)$ (mode) $ (bin) 
sioctr.adata = serial_params.actrisb; 

sioctr.adata = serial _params.actrmsb; 


Sioctr.ctrctl = 76h; 


sioctr.bdata 
Sioctr.bdata 


serial_params.betr1sb; 
serial_params.bctrmsb; 


/*cr2a bus interface option*/ 


siodev.actl 
siodev.actl 


/*cr4x*/ 


ow 


2; 
serial _params.cr2a; 


/*7$ (ctrb) $ (r1)$ (mode) $ (bin) 


/*--|er4a 
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Cy 


77 
*/ 


*/ 
a 
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es 


a7 


*/ 


| 291 2 siodev.actl = 4; /*--|cr4a */ 
Bs ally 292 2 siodev.actl = serial_params.cr4a; 

293 2 siodev.betl = 4; /*--|cr4b */ 
294 2 siodev.bctl = serial_params.cr4b; 

/*cr3x*/ 
295 2 siodev.actl = 3; /*--|cr3a */ 
296 2 siodev.actl = serial _params.cr3a; 
297 2 siodev.bctl = 3; /*--|cr3b */ 
298 2 siodev.bctl = serial_params.cr3b; 

PL/M-86 COMPILER 04/01/82 PAGE 27 
SIO: Serial I/O dvrs for ports A & B -- SIOSINIT 

Seject 

/*cxr5x*/ 
299 2 siodev.actl = 5; /*--|or5a */ 
300 2 siodev.actl = serial_params.cr5a; 
301 2 siodev.betl = 5; /*--|er5b * / 
302 2 siodev.bctl = serial_params.cr5b; 

/*cr0x reset ext/st intrs to enable modem control sense--| autoenb chans. 

also --| crlx, set intr params*/ 
303 2 siodev.actl = 00$010$001b; 
304 2 Ssiodev.actl = 0; /*no intrs */ 
305 2 siodev.bctl = 00$010$001b; 
306 2 Siodev.bctl = 0; /*no intrs */ 
307 2 end sio$init; 
PL/M-86 COMPILER 04/01/82 PAGE 28 
PPORT -- centronics interface routines 
Ssubtitle ('PPORT -- centronics interface routines ') 


* This module implements the initialization, LISTST, and LIST functions 
* for a Centronics-compatible parallel printer interface, using the 
* 6522 VIA chip. 
* 
* Our entry points are named pp$init, LPT$stat, and LPTSput respectively, 
* it's up to our caller to decode the I/O byte and call the approp- 
* riate routines. 
xf 
PL/M-86 COMPILER 04/01/82 PAGE 29 
PPORT -- centronics interface routines 
Seject 
308 1 declare pp$base pointer; /* baseaddr for a 6522 */ 
309 1 declare pp based pp$base structure ( /* 6522 template */ 
rb byte, /* out-in reg 'b' */ 
ra byte, /* out-in reg ‘a' */ 
ddrb byte, /* data-direction, reg 'b' */ 
ddra byte, /* data-direction, reg ‘a' */ 
tlcl byte, 7* tl ctr(r)/lat(w) lo */ 
tich byte, /7* tl ctr hi */ 
tlll byte, /* tl latch lo */ 
tllh byte, /* tl latch hi */ 
t2cl byte, — /* t2 ctr(r)/lat(w) lo */ 
t2ch byte, 7* t2 ctr hi */ 
Sr byte, /* shift register */ 
acr byte, /* auxiliary ctrl reg */ 
per byte, /* peripheral ctrl reg */ 
ifr byte, /* interrupt flg register */ 
ier byte, /* interrupt enbl register */ 
rax byte /* out--in reg 'a' NO HANDSHAKE */ 
ve 
“ee definitions for Centronics-style parallel interface, ‘vial’. 
* 
310 l declare vial$base literally '0e8020h'; /* baseaddr for this chip */ 
311 1 declare ds$l literally 'Olh'; /* data strobe (pb0) */ 
312 1 declare pi$h literally '02h'; /* this datum for vfu (pbl) */ 
313 1 declare bz$h literally '20h'; /* printer busy (pb5) */ 


257 


314 1 declare ak$l literally ‘'40h'; /* printer ack (pb6) */ 
315 1 ‘declare sl$h literally ‘80h'; /* on-line and no error (pb7) */ Nu J 

* 

* Bit definitions for multi-use pio, ‘via2'. 

zy 
316 1 declare via2$base literally '0e8040h'; /* baseaddr for this chip */ 
317 1 declare te$h literally ‘'Olh'; /* talk-enable line */ 

PL/M-86 COMPILER 04/01/82 PAGE 30 
PPORT -- centronics interface routines 
Seject 
* 


* initial setup for parallel printer port 
* Note we use via2 during this setup to get talk-enable turned on, and 
* thus someone MUST ALREADY HAVE VIA2 INITIALIZED. 


*7 
318 1 ppS$init: procedure public; 
319 2 pp$base = via2$base; /* point to secondary chip for te */ 
320 2 pp.rb = pp.rb or te$h; /* set ‘talk enbl’ */ 
321 2 pp$base = vialS$base; /* point struc at primary chip */ 
322 2 pp.ra = 0; /* va is dataport, init with 0's */ 
323 2 pp.ddra = Offh; /* set all ra bits as outgoing */ 
324 2 pp.rb = ds$1; /* rb is ctrlport, init no ds/pi */ 
325 2 pp.ddrb = ds$1 or piS$h; /* these 2 only are outgoing */ 
/* cal/ca2 cbl/cb2 not used * / 
/* timers/shiftreg not used * / 
326 862 end ppS$init; 
PL/M-86 COMPILER SIRIUS Systems Technology, Inc. (c) 1982 S-1l Hardware 04/01/82 PAGE 31 
PPORT -- centronics interface routines 
Seject —~ 
/* 
* Test status of printer, return true if on-line and not busy, else 
* false. For some reason, the Altos code explicitly deasserted data 
* strobe before testing; we'll assume that this represents an Altos 
* fubar and is not required here. 
327 1 LPT$stat: procedure byte public; 
328 2 if (pp.rb and (sl$h or bz$h)) = sl$h then return Offh; 
330 2 return 0; 
331 2 end LPTSstat; 
* 
* Put one character to the printer interface. 
*/ 
332 1 LPT$put: procedure(ch) public; 
333 2 declare ch byte; 
334 2 do while LPTS$stat = 0; end; 7* wait for printer ready */ 
336 2 pp.ra = ch; /* put outgoing char on the port */ 
337 2 disable; 
338 2 pp.rb = pp.rb and not ds$1l; /7/* assert data strobe x / 
339 2 pp.rb = pp.rb or ds$l; /* deassert data strobe */ 
340 2 enable; 
341 2 return; ” 
342 2 end LPTS$put; 
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PL/M-86 COMPILER 
Example software drivers for S-l Hardware 
SSUBTITLE (‘Example software drivers for S~-1l1 Hardware') 


343 1 end Hardware; 


MODULE INFORMATION: 


CODE AREA SIZE 073EH 1854D 


CONSTANT AREA SIZE = 0000H OD 
VARIABLE AREA SIZE = 00148 20D 
MAXIMUM STACK SIZE = QOOEH 14D 


807 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 


END OF PL/M-86 COMPILATION 
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